home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / MENU.DCR / scripts_15.ls < prev    next >
Encoding:
Text File  |  1999-09-16  |  1.8 KB  |  56 lines

  1. on enterFrame
  2.   set ActiveStartspr to 3
  3.   set supportPhysique to ActiveStartspr
  4.   set startBall to 4
  5.   set supportPhysiqueBall to startBall + 1
  6.   set faisceauHertzienBall to startBall + 7
  7.   set cableCoaxialBall to startBall + 8
  8.   set fibreOptiqueBall to startBall + 9
  9.   set filDeCuivreBall to startBall + 10
  10.   set startHighLightSpr to 15
  11.   set faisceauHertzien to startHighLightSpr
  12.   set cableCoaxial to startHighLightSpr + 1
  13.   set fibreOptique to startHighLightSpr + 2
  14.   set filDeCuivre to startHighLightSpr + 3
  15.   set startHotSpot to 19
  16.   set faisceauHertzienHS to startHotSpot
  17.   set cableCoaxialHS to startHotSpot + 1
  18.   set fibreOptiqueHS to startHotSpot + 2
  19.   set filDeCuivreHS to startHotSpot + 3
  20.   updateStage()
  21.   set ro to rollOver()
  22.   puppetizeExclude(0, ro - (startHotSpot - startHighLightSpr), faisceauHertzien, filDeCuivre)
  23.   case ro of
  24.     supportPhysique, supportPhysiqueBall:
  25.       go(the frame)
  26.     faisceauHertzienHS, faisceauHertzienBall:
  27.       puppetSprite(faisceauHertzien, 1)
  28.       set the member of sprite faisceauHertzien to member "faisceauHertzien"
  29.       updateStage()
  30.       go(the frame)
  31.     cableCoaxialHS, cableCoaxialBall:
  32.       puppetSprite(cableCoaxial, 1)
  33.       set the member of sprite cableCoaxial to member "cableCoaxial"
  34.       updateStage()
  35.       go(the frame)
  36.     fibreOptiqueHS, fibreOptiqueBall:
  37.       puppetSprite(fibreOptique, 1)
  38.       set the member of sprite fibreOptique to member "fibreOptique"
  39.       updateStage()
  40.       go(the frame)
  41.     filDeCuivreHS, filDeCuivreBall:
  42.       puppetSprite(filDeCuivre, 1)
  43.       set the member of sprite filDeCuivre to member "filDeCuivre"
  44.       updateStage()
  45.       go(the frame)
  46.     otherwise:
  47.       depuppetize(faisceauHertzien, filDeCuivre)
  48.       updateStage()
  49.       go("supportsPhysiquesClose")
  50.   end case
  51. end
  52.  
  53. on exitFrame
  54.   go(the frame)
  55. end
  56.